home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / pdox693.zip / TI367.ASC < prev    next >
Text File  |  1992-09-09  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT  :  Paradox                                NUMBER  :  367
  9.   VERSION  :  1.X & up
  10.        OS  :  DOS
  11.      DATE  :  September 9, 1992                        PAGE  :  1/1
  12.  
  13.     TITLE  :  How to Copy Each Record a Specified Number of Times
  14.  
  15.  
  16.  
  17.  
  18.   The following script will copy a record in an un-keyed table any
  19.   number of times.  The script illustrates the use of the PAL
  20.   commands ACCEPT, EDIT, COPYTOARRAY and FOR.  For additional
  21.   information on these PAL commands, see the PAL Reference Guide
  22.   (for versions earlier than 4.0, see the PAL User's Guide).
  23.  
  24.   @10,10
  25.   ??"How many copies do you want of this record?   "
  26.   ACCEPT "N" to x
  27.  
  28.   EDIT "tbl"                ;where "tbl" is your table name
  29.   COPYTOARRAY A             ;copies your record to an array
  30.   END
  31.   FOR i FROM 1 to x-1
  32.   DOWN                      ;inserts a blank row
  33.   COPYFROMARRAY A           ;copies the array to a blank row
  34.   ENDFOR
  35.  
  36.   DISCLAIMER: You have the right to use this technical information
  37.   subject to the terms of the No-Nonsense License Statement that
  38.   you received with the Borland product to which this information
  39.   pertains.
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.